#########################################################
#Figure D1: Main Results with DK
#########################################################

datadk <- read.dta13("./temp/figd1data.dta")
datadk<- datadk[25,]
datadk$type <- c(0)
ggplot(datadk, aes(as.factor(type), coef)) + 
  geom_pointrange(aes(ymin=coef-1.96*stderr, ymax=coef + 1.96*stderr), shape=16, size=1.7, color= "gray40") +
  geom_hline(yintercept = 0, color="red", lwd=1.2) + 
  theme_nice() + ylab("Effect on Leave Support") + xlab("Wealth Type DK") + 
  theme(axis.title = element_text(size=14),
        axis.text = element_text(size=12),
        panel.grid.minor = element_blank(),
        panel.grid.major.y = element_blank(),
        panel.grid.major.x = element_line(linetype="solid")) + 
  scale_x_discrete(labels=c("Property Wealth"))   + 
  scale_y_continuous(breaks=c(-.2, -0.1, 0, 0.1, 0.2) , limits=c(-.2,.2)) + coord_flip() 
ggsave("./figures/figd1.pdf")
rm(datadk)


